Fix last change.

diff --git a/lisp/tooltip.el b/lisp/tooltip.el
index 408943f0048ce5ee856a15ceb31b768e4196abd7..f9d58802d7ebaadc1dfca82b78a5ef8b4f70eaaa 100644 (file)
--- a/lisp/tooltip.el
+++ b/lisp/tooltip.el
@@ -331,13 +331,13 @@ change the existing association.  Value is the resulting alist."
              (fg (face-attribute 'tooltip :foreground))
              (bg (face-attribute 'tooltip :background)))
          (unless (eq 'unspecified fg)
-           (tooltip-set-param params 'foreground-color fg))
+           (setq params (tooltip-set-param params 'foreground-color fg)))
          (unless (eq 'unspecified bg)
-           (tooltip-set-param params 'background-color bg)
-           (tooltip-set-param params 'border-color bg))
+           (setq params (tooltip-set-param params 'background-color bg))
+           (setq params (tooltip-set-param params 'border-color bg)))
          (x-show-tip (propertize text 'face 'tooltip)
                      (selected-frame)
-                     tooltip-frame-parameters
+                     params
                      nil
                      tooltip-x-offset
                      tooltip-y-offset))